home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / healthg.bas < prev    next >
BASIC Source File  |  1993-07-21  |  6KB  |  198 lines
  1. ' COPYRIGHT:
  2. '
  3. '   (C) Copyright Microsoft Corp. 1993.  All rights reserved.
  4. '
  5. '   You have a royalty-free right to use, modify, reproduce and
  6. '   distribute the Sample Files (and/or any modified version) in
  7. '   any way you find useful, provided that you agree that
  8. '   Microsoft has no warranty obligations or liability for any
  9. '   Sample Application Files which are modified.
  10. '
  11.  
  12. Option Base 1
  13.         Type dopt
  14.             opt1 As Integer
  15.             opt2 As Integer
  16.             opt3 As Integer
  17.             opt4 As Integer
  18.             opt5 As Integer
  19.             opt6 As Integer
  20.             opt7 As Integer
  21.             opt8 As Integer
  22.             opt9 As Integer
  23.             opt10 As Integer
  24.             opt11 As Integer
  25.             opt12 As Integer
  26.             opt13 As Integer
  27.             opt14 As Integer
  28.         End Type
  29.                             Type chex
  30.                             chek1 As Integer
  31.                             chek2 As Integer
  32.                             chek3 As Integer
  33.                             chek4 As Integer
  34.                             chek5 As Integer
  35.                             chek6 As Integer
  36.                             chek7 As Integer
  37.                             chek8 As Integer
  38.                             chek9 As Integer
  39.                             End Type
  40.         Type chexs8
  41.         shek1 As Integer
  42.         shek2 As Integer
  43.         shek3 As Integer
  44.         shek4 As Integer
  45.         shek5 As Integer
  46.         shek6 As Integer
  47.         shek7 As Integer
  48.         shek8 As Integer
  49.         End Type
  50.                         Type feeld
  51.                         fd1 As String * 30
  52.                         fd2 As String * 30
  53.                         fd3 As String * 30
  54.                         fd4 As String * 30
  55.                         fd5 As String * 30
  56.                         fd6 As String * 30
  57.                         fd7 As String * 30
  58.                         fd8 As String * 30
  59.                         fd9 As String * 30
  60.                         fd10 As String * 30
  61.                         fd11 As String * 30
  62.                         fd12 As String * 30
  63.                         fd13 As String * 30
  64.                         fd14 As String * 30
  65.                         fd15 As String * 30
  66.                         fd16 As String * 30
  67.                         fd17 As String * 30
  68.                         fd18 As String * 30
  69.                         fd19 As String * 30
  70.                         fd20 As String * 30
  71.                         End Type
  72.  
  73. Type crazy
  74. patid As Long
  75. sex As Integer
  76. dayt As String * 8
  77. tyme As String * 8
  78. theoption As dopt
  79. chicks As chex
  80. chk1 As Integer
  81. chk2 As Integer
  82. name As String * 13
  83. relation As String * 11
  84. home As String * 12
  85. work As String * 12
  86. hed1 As String * 1000
  87. d1 As chexs8
  88. d2 As chexs8
  89. d3 As chexs8
  90. d4 As chexs8
  91. mdi1count As Integer
  92. mdi1 As feeld
  93. mdi2count As Integer
  94. mdi2 As feeld
  95. mdi3count As Integer
  96. mdi3 As feeld
  97. sumcount As Integer
  98. sum1 As feeld
  99. End Type
  100.  
  101.         Type formflag
  102.         idf As Integer
  103.         ass1 As Integer
  104.         ass2 As Integer
  105.         medh As Integer
  106.         ass3 As Integer
  107.         mdif As Integer
  108.         sumf As Integer
  109.         End Type
  110. Global ok As formflag
  111.  
  112. Global patrecord As crazy
  113. Global temprecord As crazy
  114. Global picloc As Integer
  115. Global clearrecord As crazy
  116.  
  117. Global numrecs As Long
  118. Global recindex As Long
  119. Global TYPECHECK As Integer
  120. Global nofocuscalls As Integer
  121. Global restored As Integer
  122.  
  123. Declare Function BitBlt Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwrop&) As Integer
  124. Declare Function LoadLibrary Lib "Kernel" (ByVal lpLibFileName As String) As Integer
  125. Declare Sub freelibrary Lib "Kernel" (ByVal hLibModule As Integer)
  126. Global ID$
  127. Global inkID$
  128. Global curpatID As Long
  129. Global newflag As Integer
  130.  
  131.  
  132. Global menuchoice As String
  133. Global lHandle As Integer
  134. Global currpatient As Integer
  135. Global patientID(13) As Long
  136. Global Const pixel = 3
  137. Global Const twips = 1
  138.  
  139. Global Const MainCompanyCaption$ = "           COMMUNITY MEMORIAL                     Admission Assessment          "
  140. Global Const NextCompanyCaption$ = " Community Memorial Admission Assessment "
  141. '*****************************************
  142. Global Const pid1 = 777665555            '* Sample patient id numbers
  143. Global Const pid2 = 888776666            '* Based on Social Security
  144. Global Const pid3 = 555443333            '*
  145. '*****************************************
  146. '----------------------------------------------------------------------------
  147. 'PEN CONSTANTS
  148. Global Const ALC_DEFAULT = 0
  149. Global Const ALC_LCALPHA = 1
  150. Global Const ALC_UCALPHA = 2
  151. Global Const ALC_NUMERIC = 4
  152. Global Const ALC_PUNC = 8
  153. Global Const ALC_MATH = 16
  154. Global Const ALC_MONETARY = 32
  155. Global Const ALC_OTHER = 64
  156. Global Const ALC_WHITE = 256
  157. Global Const ALC_GESTURE = 16384
  158.  
  159. '---------------------------------------
  160. 'Animated Button
  161. '---------------------------------------
  162. 'Cycle property
  163. Global Const ANI_ANIMATED = 0
  164. Global Const ANI_MULTISTATE = 1
  165. Global Const ANI_TWO_STATE = 2
  166.  
  167. 'Click Filter property
  168. Global Const ANI_ANYWHERE = 0
  169. Global Const ANI_IMAGE_AND_TEXT = 1
  170. Global Const ANI_IMAGE = 2
  171. Global Const ANI_TEXT = 3
  172.  
  173. 'PicDrawMode Property
  174. Global Const ANI_XPOS_YPOS = 0
  175. Global Const ANI_AUTOSIZE = 1
  176. Global Const ANI_STRETCH = 2
  177.  
  178. 'SpecialOp Property
  179. Global Const ANI_CLICK = 1
  180.  
  181. 'TextPosition Property
  182. Global Const ANI_CENTER = 0
  183. Global Const ANI_LEFT = 1
  184. Global Const ANI_RIGHT = 2
  185. Global Const ANI_BOTTON = 3
  186. Global Const ANI_TOP = 4
  187.  
  188.  
  189. '---------------------------------------
  190. 'MDI Child Window Control
  191. '---------------------------------------
  192. 'Arrange
  193. Global Const MDI_CASCADE = 1
  194. Global Const MDI_TILE = 2
  195. Global Const MDI_ARRANGEICONS = 3
  196.  
  197.  
  198.